home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / src-16f.lha / tools / mk-lisp < prev    next >
Encoding:
Text File  |  1992-04-03  |  1.9 KB  |  96 lines
  1. #!/bin/csh -f
  2. #
  3. #  mk-lisp -- script for building full lisp cores.
  4. #
  5. # $Header: mk-lisp,v 1.14 92/03/24 00:42:35 wlott Exp $
  6.  
  7. if ($#argv) then
  8.     if ($argv[1] == "-now") then
  9.     set later = 0
  10.     shift
  11.     else
  12.     set later = 1
  13.     endif
  14. else
  15.     set later = 1
  16. endif
  17.  
  18. if ($later) then
  19.     set delay = (205 45 15 0)
  20.     set msg = ("in 5 minutes" "in 1 minute" "in 15 seconds" "now")
  21.   nextmsg:
  22.     foreach name (`who | sed -e 's/\([^ ]*\)  *\([^ ]*\) .*/\1:\2/'`)
  23.     echo Building core $msg[1] | write `echo $name | sed -e 's/:/ /'`
  24.     end
  25.     sleep $delay[1]
  26.     shift delay
  27.     shift msg
  28.     if ($#delay) goto nextmsg
  29. endif
  30.  
  31. if ($#argv) then
  32.     set subdir = $argv[1]
  33.     set features = ($argv[2-])
  34. else
  35.     set subdir = alpha
  36.     set features = ()
  37. endif
  38.  
  39. if $?CMUCL_ROOT then
  40.     set root = $CMUCL_ROOT
  41. else
  42.     set root = /afs/cs/project/clisp
  43. endif
  44.  
  45. set dest = $root/build/@sys/$subdir
  46. set src = $root/src/$subdir
  47.  
  48. if (-e $dest/ldb/kernel.core) then
  49.     set core = $dest/ldb/kernel.core
  50. else
  51.     if (-e /usr/tmp/kernel.core) then
  52.         set core = /usr/tmp/kernel.core
  53.     else
  54.         echo Can\'t find the kernel.core
  55.     endif
  56. endif
  57.  
  58. if (-e $src/VERSION) then
  59.     set version = `cat $src/VERSION`
  60. else
  61.     set version = `/bin/date | awk '{print $3 "-" $2 "-" $6}'`
  62. endif
  63.  
  64. if (-e $src/FEATURES) then
  65.     set features = ($features `cat $src/FEATURES`)
  66. endif
  67.  
  68. # set a bunch of random env vars to fill up space.
  69. setenv FOO XXXXXXXXXXXXXXXX
  70. setenv FOO $FOO$FOO$FOO$FOO
  71. setenv FOO $FOO$FOO$FOO$FOO
  72. setenv BAR $FOO
  73. setenv BAZ $FOO
  74. setenv ACK $FOO
  75. setenv RAZ $FOO
  76. setenv GORP $FOO
  77. setenv BAR2 $FOO
  78. setenv BAZ2 $FOO
  79. setenv ACK2 $FOO
  80. setenv RAZ2 $FOO
  81. setenv GORP2 $FOO
  82.  
  83. echo Building lisp.core version $version from the \`\`$subdir\'\' subdir.
  84. echo "Features: $features"
  85.  
  86. $dest/ldb/ldb -core $core << EOF
  87. (setf *features* (list* $features *features*))
  88. (setf (search-list "lisp:") '("$dest/" "$src/"))
  89. (in-package "USER")
  90. (load (open "lisp:tools/worldload.lisp"))
  91. $version
  92. (quit)
  93. EOF
  94.  
  95. echo 
  96.